home *** CD-ROM | disk | FTP | other *** search
/ Technotools / Technotools (Chestnut CD-ROM)(1993).ISO / lang_asm / disasm / ungroup.bas < prev    next >
Encoding:
BASIC Source File  |  1988-06-03  |  280 b   |  10 lines
  1. 5  CLS
  2. 10 OPEN "groupbug" FOR INPUT AS #1
  3. 20 WHILE NOT EOF(1)
  4. 30  LINE INPUT#1,A$
  5. 40  IF LEFT$(A$,3)="!@#" THEN FIL$=MID$(A$,4,12):CLOSE#2:OPEN FIL$ FOR OUTPUT AS #2:LOCATE 14,12:PRINT "Creating file ";FIL$;"       ";:GOTO 60
  6. 50  PRINT#2,A$
  7. 60  WEND
  8. 70  CLOSE
  9. 80 SYSTEM
  10.